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0119 


Stop 


0001 












End of iob 




















0129 


Ctrl 


0001 












Record T. M. output tape 


0134 


Ctrl 


0002 












Rewind output tape 


0139 


Stop 


0002 












End of tape. Put new reel on 
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INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


jk/~r"iiuniykTi-\D nr\ 


Z 

7> 


AUXILIARY 
STORAGE 01-15 


z 
o 

7i 


CVDI Akli Tl/Nk.1 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 






a0 




Prepare ASU 01 


0009 


Load 


1505 


n i 






a* 


+ 


Of j. uu(j iiiaj. R. 


0014 


Unloac 


2060 


01 










Put group mark in output record 
























































0034 


Sel 


0200 












Input tape unit 


0039 


Read 


6000 












Read record 


0044 


RCV 


1564 












Designate output area 


0049 


Tsmt 


6004 


00 










Transmit to output area 


0054 


Sel 


0201 












Output tape unit 


0059 


Write 


1560 


00 










Write record 


0064 


Tr 


0034 












Tr to start of main routine. 
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INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 

o 

7> 


AUXILIARY 
STORAGE 01-15 


Z 

o 

7> 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0004 


13 










Prepare ASU 13 


0009 


Set L 


0007 


14 










Prepare ASU 14 


0014 


Set L 


0001 


15 










Prepare ASU 15 


0019 


Load 


0905 


15 






a * 


+ 


Group mark 


0024 


Unloac 


L 6227 


15 










Put G/M at end of output area 
























































0064 


Sel 


0200 












Input tape unit 


0069 


Read 


1017 












Read record 


0074 


RCV 


6212 












Designate output field C 


0079 


Tsmt 


1028 


13 










Transmit field G 


0084 


Tsmt 


1017 


13 










Transmit field A 


0089 


Tsmt 


1021 


14 










Transmit field B 


0094 


Sel 


0201 












Output tape 


0099 


Write 


6212 


00 










Write record 


0104 


Tr 


0064 












Tr to start of main routine 
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INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 

g 

to 


AUXILIARY 
STORAGE 01-15 


z 
g 

<7> 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0004 


06 










Prepare ASU 06 


— 


0009 


Set L 


0001 


07 










Prepare ASU 07 


0014 


Load 


0000 


07 






a* 


+ 


Group mark 


0019 


Unload 


5065 


07 










Put G/M at end of output rer.nr 


■d 


0024 


Unload 


9370 


07 










Put G/M at end of variation re con 


0029 


Set L 


0005 


05 










Prepare ASU 05 


— 




















0099 


Sel 


0200 












Input master tape 


0104 


Read 


o035 












Read record 


— 


0109 


Sel 


0201 












Input variation tape 


0114 


Read 


9361 












Read record 




















0119 


Load 


9365 


05 










Load employee no. 


— 


0124 


Clomp 


6039 


05 










Comp emplovee numbers 


0129 


Tr Eq 


0154 












Transfer on equal 


— 


0134 


Tr Hi 


0164 


00 










Transfer on high 


0139 


Sel 


0500 












Select typewriter 




0144 


Write 


9361 


00 










Write variation record 


0149 


rr 


0099 












Transfer 


— 


0154 


R.CV 


6040 












Designate master rate field 


0159 


Tsmt 


9366 


06 










Transmit rate 


0164 


RCV 


5054 












Designate output work area 


0169 


Tsmt 


6039 


00 










Transmit master record 


0174 


Sel 


0202 












Select output tape 


0179 


Write 


5050 


00 










Write record 


0184 


rr 


0099 












Transfer to start 
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\ - ' , 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 






a0 


+ 


Prepare ASU 01 


0009 


Load 


1505 


01 






a* 


+ 


Group mark 


0014 


Unload 


2060 


01 










Put G/M in output record 


0019 


Sel 


0200 












Input tape unit 


0024 


Read 


6000 












Read first record 
























































0034 


RCV 


1584 












Designate output work area 


0039 


Tsmt 


6004 


00 










Transmit to output work area 


0044 


Sel 


200 












Input tape unit 


0049 


R/W 


6000 












Prepare to read while writing 


0054 


Sel 


0201 












Output tape unit 


0059 


Write 


1580 


00 










Read and write simultaneouslv 


0064 


Tr 


0034 












Transfer to main routine. 
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1 1 


1 


1 


















1 
















1 

1 









1 1 



















01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 
o 

to 


AUXILIARY 
STORAGE 01-15 


z 
g 

7> 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L, 


0003 


12 










Prepare ASU 12 


0009 


Set L 


0005 


13 










Prepare ASU 13 


0014 


Set L. 


0006 


14 










Prepare ASU 14 


0019 


Set L 


0001 


01 










Prepare ASU 01 


0024 


Load 


2005 


01 






a* 


+ 


Group mark 


0029 


Unload 


5088 


01 










Put G/M in output record 


0034 


Sel 


0200 












Input tape 


0039 


Read 


1000 












Read first record 
























































0084 


RCV 


5063 












Designate payroll no. output 


0089 


Tsmt 


1000 


12 










Transmit payroll no. to output 


0094 


RCV 


5068 












Designate emp. no. output 


0099 


Tsmt 


1003 


14 










Transmit emp. no to output 


0104 


RCV 


5076 












Designate ins. output 


0109 


Tsmt 


1009 


13 










Transmit ins. to output 


0114 


RCV 


5083 












Designate adv. output 


0119 


Tsmt 


1014 


13 










Transmit adv. to output 


0124 


Sel 


0200 












Input tape 


0129 


R/W 


1000 












Prepare to read while write 


0134 


Sel 


0201 












Output tape 


0139 


Write 


5063 


00 










R/W simultaneously 


0144 


Tr 


0084 












Transfer to main routine. 
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Problem 21 



Page 1 of 2 





Ace. Storage 


Ace. 


Ace. Storage 


Ace. 


Check 


Memory 


Before 


Sign 


After 


Sign 


Indicators 


+ + 
ADD 6573 


a6l 


- 


a5l2 


+ 




b82V 


al34 


+ 


a959 


+ 


Sign Check 


+ 
62243 


a3765 


+ 


1522 


+ 




SUB A827 


a28 


_ 


a855 


— 


Sign Check 


+ + 
7376 


al2781 


+ 


al2405 


+ 




+ 
73274 


a3274 


— 


aOOOO 


+ 




R ADD b83S 


a7215 


- 


a832 


+ 


Sign Check 


+ 
K375 


al6 


+ 


a375 


+ 




+- - 
54381 


a9654 


+ 


a381 


- 




+ - 
R SUB 421 


a521 


+ 


a21 


+ 




b538X 


al51 


- 


a387 


- 


Sign Check 


+ + 
53743 


a9 


+ 


a3743 


- 




MPY 560 


a5 


- 


a300 


+ 




D120 


a003 


+ 


a000 360 


+ 




bl5 


a325 


- 


a04875 


- 


Sign Check 


DIV fol 

+ 
b5 


a70 
a075 


+ 
+ 


a70 
al5 


+ 

+ 


Zero indicator 


A9 


a75 
a81 


+ 
+ 


aO 
a9 


+ 
+ 


Overflow and 
Zero Check 
Sign Check 


LOAD A36 


a9 


- 


+ 
a6 


+ 




DOEbJ 


^65431 


+ 


aDOEbJ 


+ 




563AB5 


a3276l 


+ 


a63AB5 


+ 
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Accumulator 


Ace. 








Storage 


Sign 


Memory Before 


Memory After 


STORE 


a37 


- 


+ + 
643382 


,+ + - 
643337 




a37982 


+ 


+ + + 
A65213A 


Ao"37982 




a21 


+ 


DOEMId 


DOEb2t 




a7 


- 


bA76532 


bA765^7 


UNLOAD 


a219 


+ 


bAB5600 


bAB5219 




aDOEbJ 


+ 


DOEbM56 


DODOEbJ 




al5 


- 


7^B4681 


7^B4615 



Ins true 


tion 


Accumulator 


Ace. 


Accumulator 


Ace. 






Storage Before 


Sign 


Storage After 


Sign 


SHOR 


0001 


a3976 


+ 


a397 


+ 


LENG 


0002 


a7653 


+ 


a765300 


+ 


SHOR 


0002 


a375 


- 


a3 


- 


LENG 


0000 


a5762 


+ 


a5762 


+ 


SET L 


0004 


a006512 


+ 


a6512 


+ 


SET L 


0005 


a372 


- 


a00372 


- 


ROUND 


0001 


a796 


+ 


a80 


+ 


ROUND 


0003 


a37352 


+ 


a37 


+ 


ROUND 


nr\r\A 


a68712 


= 


a7 


- 
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i 22 Page 1 of 2 


INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 

V) 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 






a0 


+ 




0009 


Load 


1013 


01 






a* 


+ 


Group mark 


0014 


Unload 


2061 


01 










Put G/M in output record 


0019 


Set L 


0004 


02 






aOOOO 


+ 


4 zeros for no W. H. 


0024 


Set L 


0003 


03 






aOOO 


+ 


3 zeros for no FICA 


0029 


5el 


0200 












Input tape 


0034 


Read 


1150 












Read first record 




































Transmit record to output area 


0039 


RCV 


2024 












Designate output area 


0044 


Tsmt 


1154 


00 










Transmit to output area 




































Test for withholding tax 


0049 


R Add 


2027 


00 


a5 


+ 






Tax class 


0054 


Mpy 


1003 


00 


a06500 


- 






Tax class x 13. 00 = exmpt. amt. 


0059 


Add 


2048 


00 


al2075 


+ 






Gross - exmpt. amt. = tax. gross 


0064 


Tr Pis 


0079 


00 










To calc withholding tax 


0069 


Store 


2052 


02 










No withholding tax - put 4 zeros 


















in output 


0074 


Tr 


0104 












To test for FICA 




































Calc. withholding tax 


0079 


Mpy 


1005 


00 


a0217350 


+ 






Taxable amt. x 18% w. h. tax 


0084 


Round 


0002 


00 


a02174 


+ 






Adiust to nearest cent 


0089 


Set L 


0004 


00 


a2174 


+ 






Adjust to 4 places 


0094 


Store 


2052 


00 










Put w. h. tax in output record 


0099 j 


Lddjs^ei 


n 2039 


00 










Adjust y. t. d. w.h. tax 




































Test for FICA 


0104 


R Add 


1012 


00 


a420000 


+ 






42000 


0109 


Subt 


2033 


00 


a005000 


+ 






Y. t. d. gross 


0114 


Tr Pis 


0129 


00 










To test for partial FICA 


0119 


Store 


2055 


03 










No FICA - put 3 zeros in output 


0124 


Tr 


0179 












To calc. net pay 


0129 


Subt 


2048 


00 


a013575 


_ 






Gross 


0134 


Tr Pis 


0149 


00 










To full FICA calc- 




































Partial FICA calc. 


0139 


Add 


2048 


00 


a005000 


+ 






Add back gross 


0144 


Tr 


0154 












To multiply bv 2% 
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IkJCTD 

LOCATION 


INSTRUCTION 


CODE 


ACCUMULATOR 00 


z 
g 

55 


iiivii ■ a nv 

nUAl LIAMM 

STORAGE 01-15 


7 

g 


EXPLANATION 


OPER. 


ADDRESS 


















Full FICA calc. 


0149 


|R Add 


2048 


00 


al8575 


+ 






Gross 




















0154 


Mpy 


1006 


00 


aOOlOOOO 


+ 






Gross x 2% = FICA 


0159 


Round 


0002 


00 


aOOlOO 


+ 






Adjust FICA to nearest cent 


0164 


Set L 


0003 


00 


alOO 


+ 






Adjust to 3 places 


0169 


Store 


2055 


00 










Put FICA in output record 


0174 J 


LddMei 


a 2043 


00 










Adjust y. t.d. FICA 




































Pair fic»f i-i o tr 


0179 


R Add 


2048 


00 


al8575 


+ 






Gross 


0184 i 


Ldd Me i 


n 2033 


00 










Adiust v. t, d, gross 


0189 


Subt 


2052 


00 


al6401 


+ 






Withholding tax 


0194 


Subt 


2055 


00 


al6301 


+ 






FICA 


0199 


Store 


2060 


00 










Pnf *n*af na^r n-n /Mifnuf t^s> *^t*A 




































Write record 


0204 


Sel 


0200 












Input tape 


0209 


R/W 


1150 












Prepare input to read 


0214 


Sel 


0201 












Output tape 


0219 


Write 


2020 


00 










Write record and read simul. 


0224 


Tr Sip 


0284 












End of output tape 


0229 


Sel 


0200 












Sel Input tape unit 


0234 


Tr Sig 


0344 












End of input file 


0239 


Tr 


0039 












Transfer to start 




















0284 


Ctrl 


0001 












Tape mark on output tape 


0289 


Ctrl 


0002 












Rewind output tape 


0294 


STOP 


0001 












Stop 


0299 


Tr 


0229 












Transfer to Sel input tape 




















0344 


Ctrl 


0002 












Rewind input tape 


0349 


Sel 


0201 












Select output 


0354 


Ctrl 


0001 












Tape mark on output tape 


0359 


Ctrl 


0002 












Rewind output tape 


0364 


STOP 


0007 












End of iob 
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PROBLE/ 


M 




LJ 




























1 
























































1 




1 





























01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 




AUXILIARY 
STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 












0009 


Load 


5013 


01 






a? 




Group mark 


0014 


Unloac 


2190 


01 










Put G/M at end of record 


0019 


R Add 


5008 


02 






a0014 


+ 


Constant 0014 


0024 


R Add 


5004 


04 






a2007 


+ 


Address of first shop order no. 


0029 


Set L 


0004 


05 






aOOOO 


+ 




0034 


Set L 


0007 


06 






aOOOOOOO 


+ 






















0039 


Sel 


0100 












Card reader 


0044 


Read 


4001 












Read a card 


0049 


Load 


4016 


05 






al206 


+ 


Shop order suffix no. 


0054 


Unload 


0064 


05 










Adjust sel. instr. for reading 


0059 


Unloac 


0134 


05 










Adjust sel. instr. for writing 




















0064 


Sel 


(1206) 












Drum section 


0069 


Read 


2001 












Read drum section 


0074 


Load 


4012 


06 






aQR7170B 


+ 


Shop Order no. from card 


0079 


Comp 


(2007) 


06 










To shop order no. from drum 


0084 


TrEq 


0109 












Shop Order no. located 


0089 


TrHi 


0099 












Trv next shop order no. 


0094 


Stop 


0001 












Wrong section 




















0099 . 


Add Me 


m 0079 


02 










Adjust comp. instruction 


0104 


Tr 


0079 












To comp. next shop order no. 




















0109 


Load 


0079 


05 






a(2021) 


+ 


Address of eq. shop order no. 


0114 


Add 


5012 


05 






a(2028) 


+ 


Address of cost amt. 


0119 


Unload 


0129 


05 










Adjust 


0124 


R Add 


4021 


00 


a0941 


+ 






Cost from card 


0129 J 


kdd Mei 


n(2028 


00 










Adjust cum. shop order cost 


0134 


Sel 


(1206) 












Drum section 


0139 


Write 


2001 


00 










Write back on drum 


0144 


Un|nar^ 


nn7Q 


04 










Reset comp. address 


0149 


Tr 


0039 












To read another card. 
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I 









































01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 
o 

IS 


AUXILIARY 
STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 


0004 


R Add 


1533 


01 






alO 


+ 


Constant 10 


0009 


R Add 


1537 


02 






al014 


+ 


Drum section address 




















0014 


Sel 


:i014) 












Drum section 


0019 


Read 


7750 












Each group of drum instructions 


0024 


Tr 


7754 












To program from drum 




































Program from drum 


7754 . 


Ud Me 


m 0014 


01 










Adjust select instruction 


















To next drum section to be used 
























































9744 


Tr 


0014 












To select and read next drum 


















section 






















































Last drum section 


7754 


Unload 


0014 


02 










Reset select instruction 


















to address of first 


















drum section used 
























































9744 


Tr 


0014 












To select and read first drum 


















section. 
























































































"1 


i 

i i 
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i 
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PROBLEM 


u 
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01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


z 


35 


AUXILIARY 
STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L, 


0001 


01 












0009 


Load 


1004 


01 










Group mark 


0014 


Unload 


8031 


01 










Put G/M at end of record 






































0029 


R Add 


1002 


02 






a2 


t 


Place 2 in ASU 02 


0034 


Sel 


0200 












Input tape 


0039 


Read 


8014 












Read record 


0044 


Sel 


902 












R/W indicator 


0049 


Tr Si£ 


0104 












Tr on error 


0054 


R Add 


§025 


00 


a03 


+ 






Commission % 


0059 


Mpy 


9023 


00 


a000112950 


+ 






% x sales amt. = comm. amt. 


0064 


Round 


0002 


00 


a0001130 


+ 






Adjust tn nearest rent 


0069 


Set L 


0005 


00 


a01130 


+ 






Prepare for storing 


0074 


Store 


8030 


00 










Store result 


0079 


Sel 


0201 












OutDut tape 


0084 


Write 


8014 


00 










Write record 


0089 


Tr 


0029 












Transfer to main routine 






































0104 


Sel 


0200 












Input tape 


0109 


Ctrl 


0004 












Backspace tape 


0114 


Subt 


1003 


02 






al 


f 


Count re-read 


0119 


Tr PI 


0039 


02 










To re-read 


0124 


Stop 


0001 












3rd read error. 
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INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 
o 


AUXILIARY 
STORAGE 01-15 


z 
o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


02 












0009 


T .r\ur\ 


7nm. 


n? 










Group mark 


0014 


Unload 


9106 


02 






























0029 


Set L 


0003 


03 






aonn 


+ 


Counter for normalize & transfer 


0034 


Sel 


0200 












Input tape 


0039 


Read 


9000 












Read record 


0044 


Tr Am 


' 0604 












To sub -routine 


0049 
















Main routine 
























































0409 


Sel 


0400 












Printer 


0414 


Write 


9000 


00 










Write record 


0419 


Tr Any 


704 












To sub- routine 


0424 












































Input 










0604 


rr Sig 


0624 












End of file 


0609 


Sel 


0902 












R/W check indicator 


0614 


rr Sig 


0634 












R/W error 


0619 


Tr 


0049 












Continue main routine 


0624 


Ctrl 


0002 












Rewind tape 


0629 


Stop 


0001 














0634 


Sel 


0200 












Input tape 


0639 


Ctrl , 


r\r\f\A 












Backspace 


0644 


Norm! 


r0039 


03 










To re-read 


0649 


Stop 


0002 












3rd read error 














































Output 










0704 


rr Sip 














End of pagft 


0709 


Sel 


0902 














0714 


Tr Sig 














R/W error 


0719 


Sel 


0903 














0724 


Tr Sig 














P/P error 


0729 


Tr 


0424 
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Problem 27. Page 1 of 2 



II. 



Ill, 



Set L 








Load 








Comp 








Tr Hi 








Tr Eq 








R Add 








Comp 








Tr Hi 








Tr Eq 








R Add 


4063 


XXXXX. 


XX 


Set L 


0008 


OXXXXX. 


XX 


Leng 


0002 


OXXXXX. 


xxoo 


Div 


4067 


XX. 


xxxx 


Round 


0001 


XX. 


XXX 


Store 


4072 







IV. 1. If size of sum is longer than either operand when adding and subtracting. 

2. Value of divisor is < or = same number of digits on left side of dividend, 

3. Overflow when rounding. 

Turn OFF by interrogating 0904 by Sel 0904 and Tr Sig instructions. 

V. Store - Moves sign of accumulator with unit digit stored 

Operates on only numerical part of characters 
Checks position on left of high order digit stored. 
If it is a number, it signs if plus. 

Unload - Moves characters as they appear 
Sign of accumulator has no effect. 



VI. R Add 

Read (from tape) 
Unload 
Subtract 
Write 

Read (from card) 
Store 
Load 

Read (from drum) 
Compare 
Multiply 
ADD Memory 
(signed field) 
ADD Memory 

(unsigned field) 
Transmit 00 

Transmit 01-15 



Non-Numerical character in memory 

Inter-record gap 

"a" storage mark 

Non-Numerical character and storage mark 

00 Group Mark (01) 20,000 memory position 

End of card 

"a" storage mark 

"a" storage mark 

Drum mark 

"a" mark 

"a" storage mark 

Non-Numerical character 

"a" storage mark 

R/M in units position of any five characters 

transmitted 
"a" storage mark 
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Problem 27. Page 2 of 2 



VII. Sum of number of digits in multiplier and multiplicand 

Difference between number of digits in divisor and dividend 
VIII. 







a0145638 


Round 


0004 


a015 


Set L 


0002 


al5 


Leng 


0002 


al500 



IX. Tape (Write Status) Reflective Spot 
Tape (Read Status) Tape Mark 

Card Reader Read instruction following processing of 

last card 
Printer Hole in channel 12 of carriage tape 

Drum Attempting to read or write off drum 

X. The zone bit structure over the tens and hundreds position of 
the address. 

XI. Any end of file or check indicator will cause the Tr Any instruction 
to be effective. 

XII. (a) When an invalid character is sensed when moving characters 

from memory to the record storage unit. 

(b) An unequal comparison between the odd -even longitudinal 

count of the numerical portion of the characters moved from 
memory to the record storage unit and an odd -even type wheel 
echo impulse longitudinal count of the numeric portion of the 
character printed. 
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PROBLEM *-<-» 


INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 
o 

55 


AUXILIARY 
STORAGE 01-15 


Z 

o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0005 


00 


aOOOOO 


+ 






Prepare accum. 5 positions 


0009 


Load 


5774 


00 










Load first number 


0014 


Comp 


5779 


00 










Compare first and second number 


0019 


Tr Hi 


0039 












If first number is high go to 0039 


0024 


Comp 


5884 


00 










If low number compare to 3 


0029 


Tr Hi 


0059 












If number is high go to 0059 


0034 


Tr 


0064 












If number is low number is found 


0039 


Load 


5779 


00 










Load number 2 


0044 


Comp 


5884 


00 










Compare 2 to 3 


0049 


Tr Hi 


0059 












If number 2 is high, go to 00 59 


0054 


Tr 


0064 












If number 2 is low, goto 0064 


0059 


Load 


5884 


00 










Load number 3 


0064 


Unload 


9004 


00 










Unload low number 


0069 


Stop 


0001 












Stop machine . 




















































— 





PROBLEM 29 












INSTR. 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


Z 



AUXILIARY 
STORAGE 01-15 


z 


7> 


EXPLANATION 


OPER. 


ADDRESS 


0004 


R Add 


1904 


01 






a0003 


+ 


Constant 0003 


0009 


R Add 


1908 


02 






a0006 


+ 


Constant 0006 


0014 


R Add 


1912 


03 






al003 


+ 


Address of first 3 digit total 


0019 


R Add 


1916 


04 






al306 


+ 


Address of first 6 digit total 


0024 


R Add 


1920 


05 






al300 


+ 


Address of last 3 digit total 












































V 
















1029 


Unload 


1039 


03 






al003 




Adiust to first 3 digit address 


1034 


Unload 


1044 


04 






al 306 




Adiust to first 6 digit address 


103Q 


R Add 


(1003) 


00 










3 digit total 


1044 J 


Kid Me: 


bn(1306» 


00 










3 digit total and 6 digit total 


1049 


Comp 


1039 


05 










Comp. address of last 6 dig. tot. 


1054 


Tr Eq 


1074 












Continue program 


1059 J 


^dd Me: 


nl039 


01 










Increase r add address bv 3 


1064 J 


^dd Me: 


nl044 


02 










Increase add mem address by 3 


1069 


Tr 


1039 












To repeat accumulation 


1074 
















Continue program 








































V 


















Tr 


1029 












Repeat program. 




















— _ 


















1 
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PROBLEM- 



30 



INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


Z 

o 

to 


AUXILIARY 
STORAGE 01-15 


z 
o 

V) 


EXPLANATION 


OPER. 


ADDRESS 


0004 


R Add 


3065 


03 






a5 


+ 




0009 


Sel 


0201 












Input tape unit 


0014 


Read 


_ _ 












Read record 


0019 


Tr Sig 


0294 












End of file 


0024 




































0169 


Sel 


0203 












Output tape unit 


0174 


Write 


_ — 


00 










Write record 


0179 


Tr Sig 


0324 












End of file 


0184 


Tr 


0009 
































0294 


Ctrl 


0002 












Rewind input tape 


0299 


Add Me 


m0009 


03 










Change input tape addr. 


0304 


Tr 


0009 












To read record 




















0324 


Ctrl 


0001 












Record tape mark on output tape 


0329 


Ctrl 


0002 












Rewind tape 


0334 


Add Me 


m0l69 


03 










Change output tape addr. 


0339 


Tr 


0009 












Continue program 
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31 



INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 

o 


AUXILIARY 
STORAGE 01-15 


z 
g 

in 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 












0009 


Load 


1560 


01 






a* 


+ 


Group mark 


0014 


Unload 


3034 


01 












0019 


Set L 


0003 


02 






aOOO 


+ 




0024 


Set L 


0005 


03 






aOOOOO 


+ 






















0029 


Sel 


0200 












Input tape unit 


0034 


Read 


3001 












Master record 


0039 


(No Op) 


0114 












Switch 


0044 


Sel 


0100 












Card reader 


0049 


Read 


2021 












Change card 


0054 


Load 


2025 


03 






a64027 


+ 


Employee no. 


0059 


Comp 


3005 


03 










Card vs. master 


0064 


Tr Hi 


0104 












Tr to set switch 


0069 


Tr Eq 


0079 












Tr to change rate 


0074 


Stop 


0001 












Unmatched card - stop 




















0079 i RCV 


3031 


j 








.Rate from card and put 


0084 j Tsmt 


2026 


02 | 








put rate in master 


0089 i Sel 


0201 










Output tape 


0094 ! Write 


3001 


00 








Master record 


0099 


Tr 


0029 












To read another record 




















0104 


Sign 


0035 


00 


a& 


+ 






Set switch to B 


0109 


Tr 


0089 












To write master 


i 
















0114 j Sign 0035 


00 a& 


+ 






& 


0119 ^dd Mern0035 


00 








Set switch to A 


0124 ! Tr j 0059 


. i 




H 


To compare. j 
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PROBLEM 


32 


INSTR, 
LOCATION 


INSTRUCTION 


STOR. 
CODE 


ACCUMULATOR 00 


gl AUXILIARY 
;£ J STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0001 


01 




1 






0009 


Load 


1563 


01 




1 a? 




Group mark 


0014 


Unload 


2040 


01 




i 
i 




Put G/M at end of master record 


0019 


Unload 


1518 


01 










Put G/M at end of detail record 


0024 


Set L 


0004 


0?, 






aQOOD 


+ 






















0029 


Sel 


0200 












Input tape 


0034 


Read 


2001 












Read master record 


0039 


Sel 


0201 












Input tape 


0044 


Read 


1502 












Read detail record 


0049 


Load 


1505 


02 






aA149 


+ 


Detail product no. 


0054 


Comp 


2004 


02 










Detail vs. master 


0059 


Tr Eq 


0084 












Detail = master 


0064 


Sign 


0064 


03 






a& 


+ 


tf 


0069 l 


^dd Me] 


n 0080 


03 










Set switch to A (No Op) 


0074 


Tr Hi 


0119 












Detail > master 


0079 


Stop 


0001 












Unmatched detail 




















0084 


(No Op 


0104 












Switch 


0089 


Sign 


0080 


03 






a&c 


+ 


Set switch to B (Tr) 


0094 


Sel 


0202 












Output tape 


0099 


Write 


2001 


00 










Write master record 


0104 


Sel 


0202 












Output tape 


0109 


Write 


1502 


00 










Write detail line 


0114 


Tr 


0039 












To read another detail 




















0119 


Sel 


0200 












Output tape 


0124 


Read 


2001 












Read master record 


0129 


Tr 


0054 












To comp detail vs. master 


















To beginning. 

































PROBLEM 


JJ 


INSTR. 
LOCATION 


INSTRUCTION 


STOR.. 
CODE 


ACCUMULATOR 00 


z 
o 

35 


AUXILIARY 
STORAGE 01-15 


z 
o 

35 


EXPLANATION 


OPER. 


ADDRESS 






































0404 


R Add 


0910 


01 






a09 


+ 


Code from trans, record 


0409 


Comp 


0612 


01 










01 


0414 


Tr Eq 


_- 












Sub routine for 01 


0419 


Comp 


0614 


01 










04 


0424 


Tr Eq 


__ 












Sub routine for 04 


0429 


Comp 


0616 


01 










09 


0434 


Tr Eq 


.... 












Sub routine for 09 


0439 


Comp 


0618 


01 










26 


0444 


Tr Eq 


_ _ 












Sub routine for 26 


0449 


Comp 


0620 


01 










34 


0454 


Tr Eq 


__ 












Sub routine for 34 


0459 


Stop 


0001 












Unmatched trans, record. 
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PROBLFM -^ 


iNSTR. 
LOCATION 


INoTRU^.TIvN 


ST OR. 
CODE 


ACCUMULATOR 00 


■7 

g 


AUAI LIAKT 

STORAGE 01-15 


o 


EXPLANATION 


OPER. 


ADDRESS 


0004 


Set L 


0004 


01 












0009 


Load 


0917 


01 






a9979 


+ 


Address of first code 




















0014 


Unload 


0034 


01 






a9979 




Set transfer 


0019 


R Add 


0910 


00 


a6 


+ 






Code 


0024 


Mpy 


0913 


00 


a0030 


+ 






x00 5 


0029 A 


dd Mer 


i 0034 


00 










Adiust pivot address 




















0034 


Tr 


(0009) 












Transfer address 




















9979 


Tr 


_- 












sub routine 


9984 


Tr 


_ _ 












1 sub routine 


9989 


Tr 


«. _ 












2 sub routine 


9994 


Tr 


_ _ 












3 sub routine 


QQQQ 


Tr 


_ _ 












4 sub routine 


0004 


Tr 


_ _ 












5 sub routine 


0009 


Tr 


_ _ 












6 sub routine 


0014 


Tr 


-- 












7 sub routine 


5019 


Stop 


0001 












8 


0024 


Stop 


0001 












9 








































































Note: 


















To begin routine for next 


















transaction, transfer to 0014. 
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PROBLEM. 



35 



b 





+ 
8 


1 


+ 
2 


1 


4 


I 


+ 

6 


I 


+ 
l 


| + 
216 


3 


+ 
2 


3 


4 




















! 
i 

1 



























Os. O O 
CO "^f "^ 
O O O 



ID 
O 

o 



o 
o 



o 
o 



o 



o 



XT) 

i— I 

o 



b 


+ 
9 


+ 
5 





+ 
2 





3 


9 


+ 
9 


1 


+ 
4 





l| 


1|0 


4 





1 





4 


1 


5 





































o o 
in m 
o o 



CO 

o 
m 
o 



I s - O •— i m 

o O <— • r — ' 

in m m in 

o o o o 



in 
o 



m 

o 



















01 


02 


03 


04 


05 


06 


07 


08 
















09 


10 


11 


12 


13 


14 


15 


INSTR. 
LOCATION 


INSTRUCTION 


ST OR. 
CODE 


ACCUMULATOR 00 


z 
o 

CO 


AUXILIARY 
STORAGE 01-15 


z 
o 

10 


EXPLANATION 


OPER. 


ADDRESS 


0004 


R Add 


0500 


00 


a9 


+ 






Number of items plus one 


0009 


Comp 


0513 


00 










N to constant one 


0014 


Tr Hi 


0024 












When N > one 


0019 


Stop 


0001 












If N = one 


0024 


Mpy 


0501 


00 


a45 


+ 






N x 5 


0029 


Round 


0001 


00 


a5 


+ 






Round N 


0034 


Store 


0500 


00 


a5 


+ 






Store N for next trv 


0039 


Mpy 


0503 


00 


aOlO 


+ 






N x length of items 


0044 


Add 


0507 


00 


a0409 


+ 






+ calculated address = address 


0049 


Store 


0507 


00 


a0409 


+ 






of first item. Address of first 


0054 


Comp 


0517 


00 


a.0409 


+ 






item used to check if search is 


















beyond limits of table 


0059 


Tr Hi 


0089 












To compare against address of 


















last item 


0064 


Tr Eq 


0099 












To compare number when 


0069 


Sign 


0503 


02 






a- 


- 


calculated address is lower than 


0074 


Sign 


0513 


02 






a& 


+ 


the address of the first item 


0079 J 


Sidd Mei 


n0503 


02 










sign length field plus . 


0084 


Tr 


0004 












Tr to recalc N address. 


0089 


Comp 


0521 


00 










Check if search is 


















beyond limits of table . 


0094 


Tr Hi 


0134 












To change length to minus 


0099 


Unloac 


0109 


00 










Calc address into load instr. 


0104 


Set L 


0002 


00 










Prepare storage unit 


0109 


Load 


(0409) 


00 


a2t 


+ 






Item at calc. address 


0114 


Comp 


0509 


00 










Number searched for 


0119 


Tr Hi 


0134 












To change length to minus 


0124 


Tr Eq 


0159 












Number located 


0129 


Tr 


0069 












To rhangft length to plus 


0134 


Sign 


0503 


02 






a& 


+ 


Change sign nf 


0139 


Sign 


0511 


02 






a- 


mm 


length field 


0144 


Add M 


0511 


02 










to minus 


0149 


Add M 


0503 


02 












0154 


Tr 


0004 












Repeat 
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36 








< 


X 
t- 

o 

z 

UJ 


SYMBOLIC 
LOCATION 


z 

O 

(- 

Ul 

a. 
O 


5 

Z) 

u 
u 
< 


ADDRESS 


ADDRESS 


z 
o 

I/) 




+ 


\ENT 




6 




001 001 






01 00 1 








Assignment Entr^ i l 1 1 I 




















i I 1 I 1 ! L 1 


7 




00 I 00 I 1 














Sales idiscotint problemi 1 1 1 I 


_7_ 




06 l 00 1 














Salesirecond i I I 1 1 i 


_5_ 


006 


061 01 1 














Invoide nunuber 1 I 1 1 1 1 


5 


005 


06 I 02l 












Date 1 i 1 I l 1 1 1 


5 


033 


06 | 03 1 














Customer name and address 1 1 1 1 


5 


006 


06 i 04i 














Gross! sales I 1 1 i 1 I 


K 


nn? 


nA i ni; i n 














nisrnimt •?« i 1 1 1 1 1 I 


5 


oos 


06 1 06 1 














Discolint amount 1 1 l 1 I | 


5 


006 


06 I 07 1 














Net sales i 1 I I I i i 


5 


001 


06 1 08 1 














Group mark 1 1 I 1 1 1 


7 




05 1 00 10 














Const&nt data 1 1 i i 1 1 


2 


002 


05 1 01 1 












+ 


b2 1 I 1 I i 1 1 I 


2 


001 


05 102 |0 












+ 


3 1 I 1 1 1 1 1 1 


2 


006 


05 103 10 












+ 


010000 I 1 1 i 1 I 1 


2 


001 


05 104 10 














^ 1 i i l i 1 l 1 























7 




01 100 10 














Progrlam instructions 1 I 1 1 I 


1 




01 101 10 


SET 


01 


100 1 1 








Prepalre storage ulnit Oil I 1 1 1 






102 1 


T/OD 


01 


05 i 04 i 








Load group imark I 1 I 1 i | 






103 1 


TINT. 


01 


06 i 08 I 








Place Igrouu markl at end of record i 1 1 


1 




104 1 


SET 


02 


l 00 i 6 








Prepalre stolrage unit 02i i i I 1 






105 1 


LOD 


02 


05 i 03 l 








Load one hutnd red i dollars i I I 1 




















1 


i 




02 i 01 i 


SEL 




U I^UIU 








oeieCu ifipui.iici|jc lillii. i i i ■ ! 






102 1 


RD 




06 1 1 1 


_ 


005 




Read record into rnemotv I 1 i 1 






103 1 


CMF 


02 


06 104 10 








Compare OliOOOO tp gross sales i i I 






104 1 


TRH 




04 101 10 








Grossl salesi less than 100.00 I 1 i 1 






105 1 


TRE 




04 101 10 








Grossi salesi equali to 100.00 i i 1 I 




















il 1 






03 101 10 


RAD 


00 


05 i02 10 








R addl3 percent I ■ 1 ■ i 1 






102 10 


TR 




04 102 10 








Transfer fot calculation 1 1 i 1 




















1 1 I 1 I 1 1 1 






04 101 10 


RAD 


00 


05 101 10 








R addl2 percent I I I I i 1 






102 1 


ST 


00 


06 i05 10 








Store percent in riecordl 1 1 I I 






103 1 


MP^V 


00 


06 104 10 








Grossi salesi x percent 1 1 1 1 I 


L_ 




104 1 


RND 


00 


100 i2 








Roundi result 1 1 1 I i 1 






105 1 


ST 


00 


06 106 10 








Store discount ampunt 1 ! 1 1 1 






106 I 


RSU 


00 


06 i06 10 








R Sub idiscoTlint amount I l 1 I 1 






107 I 


ADD 


00 


06 104 10 








Add gtoss siales i i i i i I 






108 1 


ST 


00 


06 i07 10 








Store net sales 1 I | 1 I 1 


ii_ 




109 1 


,SET. 




i20 i 1 








Sei output tape i i i i i i 






110 1 


WR 


00 


06 101 10 


_ 


00!) 




Write Irecord 1 1 1 | 1 1 






111 1 


TR 




02 iOI 10 








Transfer to Iread ifriput ttape I I 1 i 
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APPi.rAT.oN Store for Print 


- Problem 37 






CLASS 
LENGTH 


SYMBOLIC 
LOCATION 


z 
o 

UJ 

a. 

o 


U 
< 


ADDRESS 


ADDRESS 
INCRE- 


z 
g 

CO 


1 


+ 


MENT 




6 


00|00 |0 






0100 lO 








Assignment Entry i 1 1 t 


7 


IOiOO 10 






1 1 








Input irecord i i i 1 i 




1 1 






1 1 








1 I l i 1 l 1 


5 006 


10|0X 10 






1 1 








Item Code i 1 l I 1 | 


5 030 


10|02 10 






1 1 








Description I i i i i 


5 005 


10i03 |0 






1 1 








Quantity i I i i i i 


5 005 


10|04 10 






1 1 








Unit cost i i i i i i 




I I 






1 1 








I i I i 1 i | 


7 


lllOO |0 






1 1 








Output record I i i i i 




1 1 






1 1 








1 i i l i I i 


5 006 


lliOl 10 






1 1 • 








Item code i 1 I i i i 


5 031 


lli02 10 






1 1 








Description 1 I i i i 


5 007 


11103 10 






1 1 








Quantity 1 1 l i i i 


5 007 


11 104 10 






1 1 








Unit dost i i i i i i 


5 013 


11 105 lO 






1 1 








Valuel i I i i i | 


5 001 


11106 |0 






1 1 








Group mark 1 1 i i i 




l l 






1 1 








1 i I 1 ill 


7 


09|00 |0 






1 1 








Constants I 1 1 i i i 


2 001 


09101 10 






1 1 








. (period) ill i || 


2 001 


09102 10 






1 1 








... , (comma) III i | | 


2 001 


09103 10 






1 1 








£ (group mairk) I 1 i | , 




1 1 






Program 


1 






i i 1 1 i i I 


1 


OliOl lO 


SET 


01 


0|00 il 








Prepare auxiliary storage unit 01 i i 




102 1 


LOD 


01 


09101 10 








Load (period 1 l I 1 | 




|03 I 


TINT. 


01 


11 104 10 


- 


004 




Unload oeriJod in unit c(bst i i ( 




|04 i 


UNL 


01 


1H05 10 


_ 


003 




Unload period in Value 1 1 1 i 




,05 j 


LOD 


01 


09 i03 iO 








Load igrouDimarkl III) 




|06 i 


TINT. 


01 


11 106 10 








Unload group mark at eind of print Jjine i 


1 


107 I 


LSF.T 


02 


0l03 10 








Set Listorage unit 02 i i | , 


1 


|08 1 


,SF,T 


04 


100 16 








Set L| storage unit 04 | | , | 


1 


109 1 


SEL 




0i20 iO 








Select input tape I 1 i i i 




|10 | 


RD 




IOiOI iO 


- 


005 




Read input tape I i i i | 




02|01 |0 


LOD 


01 


09102 iO 








Load fcomma I I i i , 




102 1 


UNL 


01 


11 105 iO 


- 


007 




Unload comlma into value print line l | 




103 1 


UNL 


01 


1H05 iO 


. 


on 




Unload comima into value pririt linei i 




.04 , 
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